home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / PRGMMING / CNVLIBD.ZIP / FCOMPACT.BAT < prev    next >
Encoding:
DOS Batch File  |  1994-01-28  |  1.2 KB  |  38 lines
  1. @echo OFF
  2.  
  3. REM  FCompact.bat - batch file to compact lots of files into one big one
  4. REM  USAGE FCompact: ResultFile InputFileList
  5. REM  IF argument are not supplied then will prompt for them
  6.  
  7. REM  GET THE NAME OF THE RESULT FILE
  8. SET RESULT_FILE=%1
  9. IF NOT "%1"=="" GOTO HAVE_RESULT
  10. CEnvi printf("Result file name: "); RESULT_FILE = gets();
  11. :HAVE_RESULT
  12.  
  13. REM  GET THE NAME OF THE SOURCE FILE LIST
  14. SET SOURCE_FILES=%2
  15. IF NOT "%2"=="" GOTO HAVE_SOURCE
  16. CEnvi printf("Source file list name: "); SOURCE_FILES = gets();
  17. :HAVE_SOURCE
  18.  
  19. REM  CHECK THAT THE SOURCE FILE LIST EXISTS
  20. IF EXIST %SOURCE_FILES% GOTO SOURCE_IS_OK
  21. ECHO %SOURCE_FILES% FILE NOT FOUND
  22. GOTO FINI
  23. :SOURCE_IS_OK
  24.  
  25.  
  26. REM   START WITH AN EMPTY RESULT FILE
  27. CEnvi fopen("%RESULT_FILE%","wb");
  28.  
  29. REM   FINALLY USE DOS'S COPY + TO APPEND ALL FILES TOGETHER
  30. REM   DO THIS BY USING SOURCE_FILE AS INPUT TO SHORT CENVI PROGRAM
  31. REM   USE FIRST LINE IF BINARY FILES, SECOND IF TEXT FILES
  32. REM TYPE %SOURCE_FILES% | CEnvi while (file=gets()) system("copy %%s/B+%%s/B %%s/B",RESULT_FILE,file,RESULT_FILE);
  33. TYPE %SOURCE_FILES% | CEnvi while (file=gets()) system("copy %%s+%%s %%s",RESULT_FILE,file,RESULT_FILE);
  34.  
  35. :FINI
  36. SET RESULT_FILE=
  37. SET SOURCE_FILES=
  38.